home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / text / edit / tecoc-146.lha / exez.c < prev    next >
C/C++ Source or Header  |  1991-07-05  |  800b  |  25 lines
  1. /*****************************************************************************
  2.  
  3.     ExeZ()
  4.  
  5.     This function executes a Z command.
  6.  
  7.     Z    Equivalent to the number of characters currently
  8.         contained in the buffer.  Thus, Z represents the
  9.         position following the last character in the buffer.
  10. *****************************************************************************/
  11.  
  12. #include "zport.h"        /* define portability identifiers */
  13. #include "tecoc.h"        /* define general identifiers */
  14. #include "defext.h"        /* define external global variables */
  15.  
  16. DEFAULT ExeZ()                  /* execute Z command */
  17. {
  18. #if DEBUGGING
  19.     DBGFEN(1,"ExeZ",NULL);
  20.     sprintf(DbgSBf,"PushEx(%ld)", ((GapBeg-EBfBeg)+(EBfEnd-GapEnd)));
  21.     DbgFEx(1,DbgFNm,DbgSBf);
  22. #endif
  23.     return PushEx((LONG)((GapBeg-EBfBeg)+(EBfEnd-GapEnd)), OPERAND);
  24. }
  25.